Description

plotly::ggplotly(p = readd(Reff_region_plot), dynamicTicks = T)

plotly::ggplotly(p = readd(Reff_nat_plot), dynamicTicks = T)

do_Carte(Carte = readd(Carte),
         Situation = readd(Situation_dep),
         N = 10)

readd(input) %>%
  select(Region = region_name, dep) %>% distinct() %>%
  inner_join(y = readd(Situation_region), by = "Region") %>% 
  do_Carte(Carte = readd(Carte), N = 10)

PLOT =
  readd(Reff_region) %>%
  select(Date, Region,
         MIN = `Quantile.0.025(R)`,
         MAX = `Quantile.0.975(R)`) %>%
  tidyr::complete(Date, Region,
                  fill = list(MIN = 1, MAX = 1)) %>%
  filter(Date > lubridate::dmy(01012021)) %>%
  ggplot(mapping = aes(y = Region)) +
  geom_linerange(mapping = aes(xmin = MIN,
                               xmax = MAX)) +
  geom_vline(xintercept = 1, colour = "red")

anim =
  PLOT +
  transition_states(states = Date,
                    wrap = F,
                    state_length = 1) +
  ggtitle(label = "{closest_state}")

# gganimate::animate(plot = anim,
#                    renderer = magick_renderer(loop = T))